home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_6087.txt < prev    next >
Text File  |  1988-05-06  |  2KB  |  99 lines
  1. -- card: 6087 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2663
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=285 top=31 right=80 bottom=355
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1000 / 1000
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Go To Stack
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Go To Stack, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this button is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.   Global StackSelected
  34.   -- THE STACK THE USER SELECTED WILL BE IN THE VARIABLE StackSelected
  35.  
  36.   push card
  37.   push card
  38.   put the name of this stack into ThisStackName
  39.   set lockscreen to true
  40.   set cursor to 4
  41.  
  42.   go to "the stack you wish to select"
  43.   if the name of this stack is ThisStackName then exit mouseUp
  44.  
  45.   set lockscreen to true
  46.   put the name of this stack into StackSelected
  47.   ask "Do you wish to go to this stack" with StackSelected
  48.   set cursor to 4
  49.   if it is empty then
  50.     pop card
  51.     pop card
  52.   end if
  53.  
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 2 (button)
  59. -- low flags: 00
  60. -- high flags: A004
  61. -- rect: left=285 top=91 right=140 bottom=355
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 17343 / 17343
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Application
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.  
  73.   put the name of this stack into ThisStackName
  74.   set lockscreen to true
  75.   set cursor to 4
  76.  
  77.   open "the program you wish to start"
  78.   if the name of this stack is ThisStackName then exit mouseUp
  79.  
  80. end mouseUp
  81.  
  82.  
  83. -- part contents for background part 8
  84. ----- text -----
  85. Card 6 of 20
  86.  
  87. -- part contents for background part 9
  88. ----- text -----
  89. GO TO STACK
  90.  
  91. Asks you, with a dialog box, to select the stack you wish to go to.
  92.  
  93. The name of the selected stack will be put in the global variable 'SelectedStack'.  It will then ask the user if they wish to go to that stack.  (You might not actually want to go to that stack name, but instead may only want the name of the stack to use it in some way.)
  94.  
  95.  
  96.  
  97. GO TO APPLICATION
  98.  
  99. Asks you, with a dialog box, to select the program you wish to start.